home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Browser / aweb.mod next >
Encoding:
Text File  |  2000-03-15  |  5.6 KB  |  192 lines
  1. /* $VER: HTMLEXT Modul: aweb.mod V 019 by Juan Manuel Wehrli 1999 - 2000
  2.    Voraussetzung: AWeb 3.3
  3.  */
  4.  
  5.  
  6. if ~show("L",rexxtricks.library) then do
  7.         call addlib("rexxtricks.library",0,-30,0)
  8. end
  9.  
  10.  
  11. PARSE ARG Befehl File
  12. OPTIONS RESULTS
  13. ADDRESS COMMAND
  14.  
  15. if Befehl = WINSET then do
  16.     winopts = GETENV('.htmlext.brwin')
  17.     ADDRESS AWEB.1
  18.     'WINDOW RECT 'winopts
  19. end
  20.  
  21.  
  22. if Befehl = WIN640480 then do
  23.     ADDRESS AWEB.1
  24.     WINDOW RECT "0,16,640,480"
  25. end
  26.  
  27. if Befehl = WIN800600 then do
  28.     ADDRESS AWEB.1
  29.     WINDOW RECT "0,16,800,600"
  30. end
  31.  
  32. if Befehl = WIN1024768 then do
  33.     ADDRESS AWEB.1
  34.     WINDOW RECT "0,16,1024,768"
  35. end
  36.  
  37. if Befehl = WINFULL then do
  38.     ADDRESS AWEB.1
  39.     WINDOW RECT "0,0,1300,1300"
  40. end
  41.  
  42. if Befehl = WINBUTOFF then do
  43.     ADDRESS AWEB.1
  44.     SETCFG SHOWBUTTONS 0
  45.     SETCFG NAVIGATION 0
  46. end
  47.  
  48. if Befehl = WINBUTON then do
  49.     ADDRESS AWEB.1
  50.     SETCFG SHOWBUTTONS 1
  51.     SETCFG NAVIGATION 1
  52. end
  53.  
  54. if Befehl = QUIT then do
  55.     if show('P',"AWEB.1") then do
  56.         ADDRESS "AWEB.1" QUIT FORCE
  57.     end
  58.     exit
  59. end
  60.  
  61. if Befehl = OPEN then do
  62.     if ~show('P',"AWEB.1") then do
  63.         'Run <>NIL: AWeb3:AWeb-II'
  64.         "sys:rexxc/waitforport AWEB.1"
  65.         ADDRESS "AWEB.1"
  66.         SETCFG NAVIGATION 0
  67.         SETCFG SHOWBUTTONS 0
  68.  
  69.         File = STRIP(File,,'"')
  70.         File = COMPRESS(File)
  71.         if File ~= "" then do
  72.             ADDRESS "AWEB.1"
  73.             preview = 't:htmlext/preview.htm'
  74.             if open('f',preview,'w') then do
  75.                 call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  76.                 call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  77.                 call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  78.                 call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  79.                 call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  80.                 call writeln('f','<FRAME NAME="htprev" SRC="file://localhost/htmlext:data/preview/blank.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  81.                 call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  82.                 call close('f')
  83.                 'OPEN URL "file://localhost/' || preview || '"'
  84.                 address command 'wait 2'
  85.                 'OPEN RELOAD URL "file://localhost/' || File || '" TARGET "htprev"'
  86.             end
  87.         end
  88.         exit
  89.     end
  90.     File = STRIP(File,,'"')
  91.     File = COMPRESS(File)
  92.     if File ~= "" then do
  93.         ADDRESS "AWEB.1"
  94.         preview = 't:htmlext/preview.htm'
  95.         if open('f',preview,'w') then do
  96.             call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  97.             call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  98.             call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  99.             call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  100.             call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  101.             call writeln('f','<FRAME NAME="htprev" SRC="file://localhost/htmlext:data/preview/blank.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  102.             call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  103.             call close('f')
  104.             'OPEN URL "file://localhost/' || preview || '"'
  105.             'OPEN RELOAD URL "file://localhost/' || File || '" TARGET "htprev"'
  106.         end
  107.     end
  108.     exit
  109. end
  110.  
  111.  
  112. if Befehl = START then do
  113.     if ~show('P',"AWEB.1") then do
  114.         'Run <>NIL: AWeb3:AWeb-II'
  115.         "sys:rexxc/waitforport AWEB.1"
  116.     end
  117.     ADDRESS "AWEB.1"
  118.     preview = 't:htmlext/preview.htm'
  119.     if open('f',preview,'w') then do
  120.         call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  121.         call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  122.         call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  123.         call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  124.         call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  125.         call writeln('f','<FRAME NAME="htprev" SRC="file://localhost/htmlext:data/preview/blank.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  126.         call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  127.         call close('f')
  128.         'OPEN URL "file://localhost/' || preview || '"'
  129.         SETCFG NAVIGATION 0
  130.         SETCFG SHOWBUTTONS 0
  131.     end
  132.     exit
  133. end
  134.  
  135.  
  136. if Befehl = OPENNEW then do
  137.     DIR = GETENV(.htmlext.tmp)
  138.     if ~show('P',"AWEB.1") then do
  139.         'Run <>NIL: AWeb3:AWeb-II'
  140.         "sys:rexxc/waitforport AWEB.1"
  141.     end
  142.     File = STRIP(File,,'"')
  143.     File = STRIP(File)
  144.     if File ~= "" then do
  145.         ADDRESS "AWEB.1"
  146.         NEW URL '"file:///' || File || '"' RELOAD
  147.     end
  148.     exit
  149. end
  150.  
  151. if Befehl = OPENURL then do
  152.     if ~show('P',"AWEB.1") then do
  153.         'Run <>NIL: AWeb3:AWeb-II'
  154.         "sys:rexxc/waitforport AWEB.1"
  155.     end
  156.     File = STRIP(File,,'"')
  157.     File = COMPRESS(File)
  158.     if File ~= "" then do
  159.         ADDRESS "AWEB.1" NEW URL '"' || File || '"' RELOAD
  160.     end
  161.     exit
  162. end
  163.  
  164. if Befehl = ICONIFY then do
  165.     if show('P',"AWEB.1") then do
  166.         ADDRESS "AWEB.1" ICONIFY HIDE
  167.     end
  168.     exit
  169. end
  170.  
  171. if Befehl = UNICONIFY then do
  172.     if show('P',"AWEB.1") then do
  173.          ADDRESS "AWEB.1" ICONIFY SHOW
  174.     end
  175.     exit
  176. end
  177.  
  178. if Befehl = MKHTMLPIC then do
  179.     if ~show('P',"AWEB.1") then do
  180.         'Run <>NIL: AWeb3:AWeb-II'
  181.         "sys:rexxc/waitforport AWEB.1"
  182.     end
  183.     File = STRIP(File)
  184.     if File ~= "" then do
  185.         ADDRESS "AWEB.1"
  186.         OPEN URL '"file:///' || File || '"' RELOAD
  187.         ADDRESS COMMAND 'wait 3'
  188.         SAVEIFF "t:HTMLEXT/tmp.image.pic" NOICON WAIT
  189.     end
  190. end
  191.  
  192.